Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/menus/menuev32/mesample.frm

Text File | 1994-06-09 | 3KB | 112 lines

VERSION 2.00
Begin Form MESAMPLE
   BorderStyle     =   1  'Fixed Single
   Caption         =   "MenuEv Sample"
   ClientHeight    =   2760
   ClientLeft      =   1275
   ClientTop       =   2520
   ClientWidth     =   4680
   Height          =   3450
   Left            =   1215
   LinkTopic       =   "Form1"
   ScaleHeight     =   2760
   ScaleWidth      =   4680
   Top             =   1890
   Width           =   4800
   Begin MenuEvent MenuEv1
      Left            =   240
      LinkControl     =   "Label1"
      LinkProperty    =   "Caption"
      Top             =   240
   End
   Begin Label Label3
      Caption         =   "Run the program and play with the menus to see this work.  When playing, remember: No code required!"
      Height          =   735
      Left            =   840
      TabIndex        =   2
      Top             =   1320
      Visible         =   0   'False
      Width           =   3495
   End
   Begin Label Label2
      Caption         =   "This MenuEv control has no code associated with it.  It uses the LinkControl and LinkProperty properties to automatically update the Label1 control."
      Height          =   1095
      Left            =   840
      TabIndex        =   1
      Top             =   240
      Visible         =   0   'False
      Width           =   3495
   End
   Begin Label Label1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Label1"
      ForeColor       =   &H00000000&
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   2490
      Width           =   4335
   End
   Begin Shape Shape1
      BackColor       =   &H00C0C0C0&
      BackStyle       =   1  'Opaque
      Height          =   375
      Left            =   -10
      Top             =   2400
      Width           =   4695
   End
   Begin Menu MenuFile
      Caption         =   "&File"
      Begin Menu MenuFileNew
         Caption         =   "&New"
         Tag             =   "Create File..."
      End
      Begin Menu MenuFileOpen
         Caption         =   "&Open"
         Tag             =   "Open File..."
      End
      Begin Menu MenuFileClose
         Caption         =   "&Close"
         Tag             =   "Close File..."
      End
      Begin Menu MenuFileSep
         Caption         =   "-"
      End
      Begin Menu MenuFileExit
         Caption         =   "E&xit"
         Tag             =   "Exit Program"
      End
   End
   Begin Menu MenuEdit
      Caption         =   "&Edit"
   End
   Begin Menu MenuView
      Caption         =   "&View"
      Tag             =   "View Menu"
   End
End


Option Explicit

Sub Form_Load ()
    Label1 = ""

    MenuFile.Tag = "Create, open, save files or quit."
    MenuFileNew.Tag = "Creates a new file."
    MenuFileOpen.Tag = "Opens an existing file."
    MenuFileClose.Tag = "Closes a file."
    MenuFileExit.Tag = "Quits MESAMPLE."
    MenuEdit.Tag = "Edit things."
    MenuView.Tag = "View things."
End Sub

Sub Form_Unload (Cancel As Integer)
    End
End Sub

Sub MenuFileExit_Click ()
    End
End Sub